home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _comms / comms / _riscbbs / !RiscBBS / BBS / Enquete < prev    next >
Text File  |  1991-07-25  |  1KB  |  27 lines
  1. {bg 0 cls #more 0 #abort 1}
  2. {attr 4 3}  -- Arcland User Enquete --  {attr 0 2}  {_time} / {_online}  {bg 4 cll}
  3. {attr 0 2 @open <RiscBBS$Dir>.BBS.EnqAns}
  4. {fg 6}A.{fg 2} What is your age? {fg 3 @read 1 3 @write 1 age}
  5.  
  6. {fg 6}B.{fg 2} What is your occupation? {fg 3 @read 1 50 @write 1 occupation}
  7.  
  8. {fg 6}C.{fg 2} What do you use your computer for? {fg 3 @read 1 50 @write 1 compuse}
  9.  
  10. {fg 6}D.{fg 2} For how long have you been using computers? {fg 3 @read 1 20 @write 1 comptime}
  11.  
  12. {fg 6}E.{fg 2} Do you write programs yourself? (Y/n) {fg 3 @yesno 1 1}
  13. {&if V1 &else ~goto +F}
  14.    {fg 2}What kind of programs? {fg 3 @read 1 50 @write 1 p_kind}
  15.    {fg 2}In which language(s)? {fg 3 @read 1 50 @write 1 p_language}
  16. {~label F}
  17. {fg 6}F.{fg 2} Are you sysop of a BBS? (y/N) {fg 3 @yesno 0 1}
  18. {&if V1=0 &else ~goto +end}
  19.    {fg 2}What's the name of your BBS? {fg 3 @read 1 50 @write 1 BBSname}
  20.    {fg 2}What's the number of your BBS? {fg 3 @read 1 30 @write 1 BBSnumber}
  21.  
  22. {~label end fg 6}
  23. Thank you for answering the enquete!
  24. Enjoy your further stay in {fg 3}Arcland after Dark{fg 6}.
  25.  
  26. {show <RiscBBS$Dir>.BBS.AnyKey}
  27.